home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / pcboard / ne_ws3.zip / NEWS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-01-07  |  4KB  |  240 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   TSTRING002(21)
  23.     String   STRING003
  24.     String   TSTRING004(2)
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   TSTRING009(21)
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     STRING003 = Left(ReadLine(PPEPath() + "COLOR.KEY", 1), 5)
  39.     TSTRING004(1) = Left(ReadLine(PPEPath() + "COLOR.KEY", 2), 4)
  40.     TSTRING004(2) = Left(ReadLine(PPEPath() + "COLOR.KEY", 3), 4)
  41.     INTEGER002 = 1
  42.     FOpen 1, PPEPath() + "DISP", 2, 0
  43.     :LABEL001
  44.     FGet 1, TSTRING009(INTEGER002)
  45.     Inc INTEGER002
  46.     If (INTEGER002 == 8) Goto LABEL002
  47.     Goto LABEL001
  48.     :LABEL002
  49.     FClose 1
  50.     STRING005 = Left(ReadLine(PPEPath() + PPEName() + ".KEY", 1), 20)
  51.     STRING006 = Left(ReadLine(PPEPath() + PPEName() + ".KEY", 2), 20)
  52.     STRING007 = Left(ReadLine(PPEPath() + PPEName() + ".KEY", 3), 20)
  53.     STRING008 = Left(ReadLine(PPEPath() + PPEName() + ".KEY", 4), 7)
  54.     INTEGER001 = 16
  55.     STRING010 = PPEName()
  56.     STRING011 = Left(ReadLine(PPEPath() + STRING010 + ".KEY", 1), 20)
  57.     STRING012 = Left(ReadLine(PPEPath() + STRING010 + ".KEY", 2), 20)
  58.     STRING013 = Left(ReadLine(PPEPath() + STRING010 + ".KEY", 3), 20)
  59.     STRING014 = Left(ReadLine(PPEPath() + STRING010 + ".KEY", 4), 7)
  60.     If (Exist(PPEPath() + STRING010 + ".KEY")) Then
  61.         Gosub LABEL003
  62.     Else
  63.         If (Exist(PPEPath() + STRING010 + ".KEY")) Goto LABEL003
  64.         Gosub LABEL004
  65.     Endif
  66.     :LABEL003
  67.     If (STRING014 <> 121763) Then
  68.         Gosub LABEL004
  69.     ElseIf (STRING014 == 121763) Then
  70.         Gosub LABEL005
  71.     Endif
  72.     :LABEL004
  73.     PrintLn "@CLS@"
  74.     PrintLn "@POFF@"
  75.     PrintLn "            @X4A┌─────────────────────────────────────────────────┐@X0F"
  76.     PrintLn "            @X4A│    This is a unregistered SHAREWARE version     │@X0A"
  77.     PrintLn "            @X4A│                                                 │@X0A"
  78.     PrintLn "            @X4A│     Please help your Sysop with registering     │@X0A"
  79.     PrintLn "            @X4A│       all shareware on the BBS.                 │@X0A"
  80.     PrintLn "            @X4A│                                                 │@X0A"
  81.     PrintLn "            @X4A│    To REGISTER this PPE print the REG DOC.      │@X0A"
  82.     PrintLn "            @X4A│                                                 │@X0A"
  83.     PrintLn "            @X4A│                                                 │@X0A"
  84.     PrintLn "            @X4A└─────────────────────────────────────────────────┘@X0A"
  85.     PrintLn "               @X0BStand by for a 10 sec pause!                    "
  86.     AnsiPos 46, 13
  87.     PrintLn "@X0910"
  88.     AnsiPos 30, 15
  89.     PrintLn "P"
  90.     Delay 18
  91.     AnsiPos 46, 13
  92.     PrintLn "@X0D9 "
  93.     AnsiPos 31, 15
  94.     PrintLn "L"
  95.     Delay 18
  96.     AnsiPos 46, 13
  97.     PrintLn "@X0C8 "
  98.     AnsiPos 32, 15
  99.     PrintLn "E"
  100.     Delay 18
  101.     AnsiPos 46, 13
  102.     PrintLn "@X0E7 "
  103.     AnsiPos 33, 15
  104.     PrintLn "A"
  105.     Delay 18
  106.     AnsiPos 46, 13
  107.     PrintLn "@X066 "
  108.     AnsiPos 34, 15
  109.     PrintLn "S"
  110.     Delay 18
  111.     AnsiPos 46, 13
  112.     PrintLn "@X055 "
  113.     AnsiPos 35, 15
  114.     PrintLn "E"
  115.     Delay 18
  116.     AnsiPos 46, 13
  117.     PrintLn "@X024 "
  118.     Delay 18
  119.     AnsiPos 46, 13
  120.     PrintLn "@X013 "
  121.     AnsiPos 37, 15
  122.     PrintLn "R"
  123.     Delay 18
  124.     AnsiPos 46, 13
  125.     PrintLn "@X0F2 "
  126.     AnsiPos 38, 15
  127.     PrintLn "E"
  128.     Delay 18
  129.     AnsiPos 46, 13
  130.     PrintLn "@X071 "
  131.     AnsiPos 39, 15
  132.     PrintLn "G"
  133.     Delay 9
  134.     AnsiPos 40, 16
  135.     PrintLn "@X0ANow @X09here @X0Bwe @X8FGO@X06!"
  136.     Gosub LABEL005
  137.     :LABEL005
  138.     Dec INTEGER001
  139.     If (INTEGER001 == 0) Goto LABEL013
  140.     If (Exist(PPEPath() + "NEW" + String(INTEGER001) + ".DAT")) Goto LABEL006
  141.     Goto LABEL005
  142.     :LABEL006
  143.     FOpen 1, PPEPath() + "NEW" + String(INTEGER001) + ".DAT", 2, 3
  144.     FGet 1, TSTRING002(1)
  145.     INTEGER002 = 1
  146.     :LABEL007
  147.     Inc INTEGER002
  148.     If (INTEGER002 == TSTRING002(1) + 5) Goto LABEL008
  149.     FGet 1, TSTRING002(INTEGER002)
  150.     Goto LABEL007
  151.     :LABEL008
  152.     FClose 1
  153.     PrintLn TSTRING009(1)
  154.     PrintLn TSTRING009(2)
  155.     PrintLn TSTRING009(3)
  156.     PrintLn TSTRING009(4)
  157.     PrintLn TSTRING009(5)
  158.     PrintLn TSTRING009(6)
  159.     INTEGER002 = 2
  160.     :LABEL009
  161.     If (INTEGER002 == TSTRING002(1) + 1) Goto LABEL010
  162.     PrintLn TSTRING009(6)
  163.     Inc INTEGER002
  164.     Goto LABEL009
  165.     :LABEL010
  166.     PrintLn TSTRING009(7)
  167.     AnsiPos 11, 3
  168.     PrintLn TSTRING004(1) + TSTRING002(2)
  169.     AnsiPos 38, 3
  170.     PrintLn TSTRING004(1) + TSTRING002(3)
  171.     INTEGER002 = 1
  172.     :LABEL011
  173.     If (INTEGER002 == TSTRING002(1) + 1) Goto LABEL012
  174.     AnsiPos 5, INTEGER002 + 4
  175.     PrintLn TSTRING004(2) + TSTRING002(INTEGER002 + 3)
  176.     Inc INTEGER002
  177.     Goto LABEL011
  178.     End
  179.     :LABEL012
  180.     STRING001 = "Y"
  181.     PrintLn "@X0F"
  182.     InputStr "@X0A@TIMELEFT@ min left, More", STRING001, 13, 1, "YN", 2 + 4 + 32 + 8
  183.     If (STRING001 == "Y") Then
  184.         Goto LABEL005
  185.     Endif
  186.     :LABEL013
  187.     End
  188.  
  189. ;------------------------------------------------------------------------------
  190. ;
  191. ; Usage report (before postprocessing)
  192. ;
  193. ; ■ Statements used :
  194. ;
  195. ;    2       End
  196. ;    19      Goto 
  197. ;    18      Let 
  198. ;    45      PrintLn 
  199. ;    11      If 
  200. ;    2       FOpen 
  201. ;    2       FClose 
  202. ;    3       FGet 
  203. ;    1       InputStr 
  204. ;    5       Gosub 
  205. ;    10      Delay 
  206. ;    4       Inc 
  207. ;    1       Dec 
  208. ;    23      AnsiPos 
  209. ;
  210. ;
  211. ; ■ Functions used :
  212. ;
  213. ;    41      +
  214. ;    7       ==
  215. ;    1       <>
  216. ;    5       !
  217. ;    11      Left()
  218. ;    2       String()
  219. ;    16      PPEPath()
  220. ;    11      ReadLine()
  221. ;    3       Exist()
  222. ;    5       PPEName()
  223. ;
  224. ;------------------------------------------------------------------------------
  225. ;
  226. ; Analysis flags : No flag
  227. ;
  228. ;------------------------------------------------------------------------------
  229. ;
  230. ; Postprocessing report
  231. ;
  232. ;    0       For/Next
  233. ;    0       While/EndWhile
  234. ;    4       If/Then or If/Then/Else
  235. ;    0       Select Case
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;                 AEGiS Corp - Break the routines, code against the machines!
  239. ;------------------------------------------------------------------------------
  240.